NEWSLETTER ISSUE NO.4 | 7 7 DECEMBER 1985 


Dear Cortex Owner, 


Welcome to issue 4 of the Cortex User Group Newsletter. May we take this opportunity 
to wish you and your Cortex a Merry Christmas and a Happy New Year. As you can 

see there are a few changes inside. Our aim is principally to provide a useful 
communication service between users, and to do this does, of course, require 

your cooperation. Therefore we are prepared to listen to any suggestions, and 

. will consider any items /articles sent in to us. Wé cannot guarantee to solve all 
of your problems, but in previous newsletters where problems were featured we 


are proud to claim a very high success rate. 


Several beople have mentioned that in the past program listings have been typed | 
with mistakes inevitably creeping in. We are now photocopying listings wherever i 
possible. Please do not be put off sending in short programs/routines if you 
don't have a printer. Another feature which we are introducing so that you don't 
have to spend your time typing and debugging, is a tape containing all of the 


programs/routines featured in this newsletter. 


Other new features are: A regular quarterly competition 
| New prices for existing BOER WOES: 
G new games for sale 
- Blank computer grade cassettes 


Announcement of new hardware 


We are still maintaining our offer to market your software. If you have written 
any good programs then we are waiting to hear from you. We pay £1. 50 royalties 

for every copy sold (irrespective of selling price). All you have to do is send 
a fully working version on tape with any necessary documentation, and we wll do 


the rest. 


Read on - we look forward to receiving your comments. 


63 Highlands Road, Andover, Hants. SP10 2PZ 
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We regret that KPH COMPUTAWARE cannot accept responsibility for the * 


contents of any letters or programs included in this newsletter. 


Programs: 


Once again we have received many interesting programs from Cortex Users, 

Wherever possible we aim to retain the original listing in the hope of minimising 
errors. What better way to learn about programming than by example? Please note 
that any programs or routines that are sent in(no matter how short) are considered. 


The first offering this time comes from Brian Harris of Plymouth,Devon. 


The following addition to the CDOS LIST DIRECTORY 
utility. Together with Tim Grays auto run from BOOT, | 
Gescribed in newsletter III. Will allow the directory to be 
listed and a program to be selected from the screen. 

A cursor is provided which can be moved down the program 
list using the SPACE BAR. Fressing the RETURN KEY moves the 
program name to the SYSTEMS routine and then loads it. 
Using the DISK INSPECT utility, modify the SYSTEMS file as 
follows:—- | : 


88 @@ 86 49 SA @? et 469 CB | an. 
“28 CC® Bl i3 92 C4 Bi 16 FC | 

i@ _@6 A@ 6C Be 24 60 49 AB 

18 04 96 OD @A O7 26 908 90 

24 © 0@ o@ 9@ Ce 88 14 a> 

28 82 62 69 BS 4 Ci. 82 OF yi; 3 | 
oy €8©@0@ 380 94 66 65 9C 40 44 Enter the underlined code. 
38. 49 5? 00 68 88 08 46 a6 — | | | | 

49 0 08 88 0 04 a0 G8 OO 

48 2A BA 2C 1F 3B 326 96 1C 

ais 44% 29 68 40 =4 BC 7B 87 

58 3B 38 @1 64 40 2A 69? 90 

ao 3a SE AL 4E 40 2C 6A EG 

58 =A 990 AS 60 4@ BE 6A E4 

79 40 56 69 A4 06 89 OO 29 


73. 86 88 60 68 20 86 oe Bo 


Add the following lines to the LIST DIRECTORY program. _ 


378 SP=168 _ | 

372 SPUT(SP),127 | 

374 K=KEYCOI:TIF K=@ THEN GOTO 574 

w76 IF K=32 THEN SPUT(SP),32:GOTO See 
373 IF K=13 THEN GOTO 388 | 

80 GOTO 374. | | 

292. SP=SP+40:SGET (SP-8).,CHR 

384 IF CHR=127 THEN GOTO 570 

386 GOTO 372 

288 SP=SP—-8: AD=869R6H 

790 SGET(SP),CHR: IF CHR=32 THEN CHR=9 
S92 MEMCADI=CHR 

S74 SP=SP+1:AD=AD+1:IF AD=969BEH THEN CALL. #6948H 
~76 GOTO 599 


To display the directery without having to input the drive 
number, change line 219 to D=s. 7 > 


Paul Sheridan, of Gloucestershire, has sent in a program for number base — 
- conversion which he wrote and — finds very useful. 


6000 
— 6010 


6020 


6030 
6040 


6050 


6060 


6070 


6080 
6090 
6100 


6110 
6120 


6130 
6140 
6150 


6160 


6170 
6180 
6190 
6200 


— 6210 
6220 
6230 


6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 


6320 


6330 
6340 
~— 6350 
6360 
6370 


6380 


6390 
6400 
6410 
6420 


6430 


6440 
6450 
6460 
6470 


6480 


6490 
6510 
6520 


6530: 
6540 


A=KEY(O) : 


 J=LEN($A(0)) : 


FOR D=1 TO J : A=O : FOR & 


DIM $4(10),B(20),BB(16),c(9),c1(9),c2(6), 03(9),04(9), #(9) 
DIM $BN(8),$a1(5) | 
7e°C": "NUMBER CONVERSION PROGRAM" _ 
?@"BD";"WHICH TYPE TO BE CONVERTED": DBH=0 : BDE=0 : DAD=0: RF=0: XX=0 : 
PQ"D AR": "Hix tt s e 27@"DAR" s ° "“B=BINARY': e POND AR": a "D=DECIMAL" : 
AsKEY(O) : IF A=72 : GOTO 6190 
IF A=68 : GOTO 6140 

96 3: GOTO 6090 
GOTO 6050 
?@"C5D"; e wry PE OF OUTPUT ont =HEX"™: e 2e"D1 17R" s e *2=DECIMAL" @- 20"D1 TR"; o 32=80TH" b | 
A=KEY(O) : IF A=49 : GOTO 6640 | | 
IF A=50 : GOTO 6520 
IF A=51 : BDH=1 : GOTO 6520 | 
GOTO 6100 
?@"C5D" s"TYPE OF OUTPUT:=1=BINARY": 2@"D17R"s NOCHEX" s ?@"D1 7R"s sit S=BOT" 

IF A=49 s GOTO 7000 

GOTO Piles | 


IF A=50 
13 + GOTO 7000 


2@" OSD" 5 "TYPE OF OUTPUT :-1=BINARY":. ?@"D1 aia 20"D1 TRY 5 "3 = 80TH" 
A=KEY(O) : IF A=49 : GOTO 6480 

IF A=50 : GOTO 6240 

IF A=51 : DAD=1 : GOTO 6240 

REM * HEX TO DECIMAL * 

"INPUT HEX NO.";; INPUT $ #a(0) 

“OO)=1 : AD=16 

FOR D=1 TO J  C(D)sAD : AD=AD*16 : NEXT D 

MYM=O : FOR Dal TO J : #3(D)=¢a(0; D), 1 yt 
BB(D)=ASC(% B(D)) : IF BB(D)<48 OR BB(D)>70 : MMM=1 
NEXT D oO 


' B 


IF MMM=1 : GOTO 6240 — 


=48 TO 57 
IF mt ae I B(D)=A 
IF BB(D)>64 AND BB(D)<71 : GOSUB 6360 
A=A+1 : NEXT E | 
NEXT D : GOTO 6380 
X=10 : FOR F=65 TO 70 
X= =X+1 3 NEXT F : RETURN 
T=0 : FOR D=0 T0 J : S=B(D)*c (3-0) : 
NEXT D 
IF DAD=1 : DN=T : GOTO 7010 
TP. RF=1 : RETURN 

23?" DECIMAL RQUIVALENT="-T 
2: 2"AGAIN (x/n)" 
A1=KEY(0) : IF A1=89 
IF A1l=78 : END 


: IF BB(D)=F.: B(D)=x 


T=T+S 


: GOTO 6020 


GOTO 6440 


REM * HEX. TO. BINARY * 

RF=1 : GOSUB 6240 

DN=? : GOTO 7010 

REM * BINARY TO DECIMAL * 
INPUT" INPUT BINARY no." Spn(0) 
c1(1)=1 ;: T=0 Porm roe 
FOR D=2 TO Jo: "01(D)=C1 (D-1 *2 :NEXT D 


6550 
6560 
6570 
6580 
~ 6590 
6600 
6610 
6620 
6630 
6640 

— 6650 


6660 


6670 


6680 


6690 
6700 
6710 
6720 
6730 


6740 


6750 


6760 


6770 
6780 
6790 
6800 
6810 
6820 
6830 


6840 


6850 
6860 


6870 
6880 


6890 
6900 
6910 


6930 


6940 
6950 
6960 
6970 
— 6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 


ELSE ?$F3 


ABSFRA(AP) 


AP=AP{C3 


FOR D=1 TO J 
BB(D)=$B(D), x : 
GOTO 6520 

NEXT D : FOR D=0 
NEXT D : IF BDH=1 

IF XX=1 : RETURN 
?3:?"DECIMAL EQUIVALE 
GOTO 6430 . @ 

REM * BINARY TO HEX * 

XX=1 : GOSUB 6520 

AF=T 

GOSUB 6730. 

7@" 2D4AR" 5 "HEX EQUIVALENT" 5 : 


: $B(D)=8BN(03D),1 

IF BB(D)=1 OR BB(D)=0 : GOTO 6580 
TO J : ReC1(J-D)*BB(D+1) : THR 
: COTO 6650 —_ 


—t 


IF $F2>"00" : ?$P2" "$pz 
2@"2D4R" s "DECIMAL RQUIVALENT" T 
GOTO 6430 
REM * DECIMAL TO HEX * 
INPUT" INPUT DECIMAL NO." AF | 
IF ABDO :GOTO 6720 | 
ee : 03(2)=16 : €3(3)=256 : C3(4)=4096 : 

D=5 : AP=AF : FOR D=1 TO 5 : XA=1 
ee LIF APEO : APaAP+C3(DD) 
AP=AP+C3(DD 

tap 3 IF APKO sAP=AP4+C3(DD) : 

IF AP=O0 : XA=XA+1 ¢ GOTO 6810 
XA=KA+1 : GOTO 6780 

XA=XA~1 ; IF XA>9 : GOTO 6850 
res D)=XA 
DD=DD-1 : NEXT D 
GOTO 6920 
IF XA=10 3 
IF XA=11 : 
IF XA=12 : 
IF XA=13 3 $A1 


C3(5)=65536 


: $41(0;D)=/"0" : GOTO 6830 


GOTO 6810 


O:D ) ee =/n a" 
OsD)=/ 
tes =/"—n" 

=/"Pn 


IF XA=14 
IF XA=15 : 
GOTO 6830 3 
$P2=$41(032),2 : $F3=$41(034),2 
IF DBH=1 : GOTO 7180 
IF DAD=1 : RETURN 
IF BDH=1 : GOTO 6670 

2: "HEX RQUIVALENT" ; 3 
ELSE ?$F3 


IF $2>"00" : 28Fo" ngps 


GOTO 6430 
REM * DECIMAL TO BINARY 
INPUT"INPUT DECIMAL NO." DN 


C2(1)=1 : DD=16 
AB=FRA(DN) : IF AB>O : GOTO 7000 
FOR D=2 TO 16 : C2(D)=C2(D-1)*2 
NEXT D : AT=DN : FOR D=1 TO 16 
AT=AT-C2(DD) : IF AT<O : an : $Aa(0; Dace sGOTO 7070 
IF AT>=0 : $AA(0;D)=/"1" 
= =DD-1 : NEXT D 
F=$Ai(039),4 1 $F1=$AA(0; a, 4 
rmeba (a. 4: $Fé= 


IF DBH=1 : pot : GOTO 6730 


2"BINARY EQUIVALENT"; 


7120 IF $FF="0000" ; IF $F6="0000" : GOTO 7140 

TA 30 ?cret NaRgt nga non : 

7140 IF $Fr="0000" : ?$F 

7150 ELSE ?$F" "$F 

7160 IF DAD=1 : ?: eNDECIMAL EQUIVALENT" T | 
7170 GOTO 6430 so 
7180 ? : ?*HEX EQUIVALENTS" 5 : IF $F2>"00" ; ?SF2" "GRA 
7190 ELSE ?3P% | | | . 
7200 GOTO 7110 


Tim Gray has once cic ae sent in reams of information and programs (Thank you Tim). 


Here is a short routine to access external menOnyeT 
CALL S49EH,in/out,adde L,addr Z2,data/addr 3. 
RG = [N= READ so | 
Ri = ADDR i MAPPER VALUE (4 BLOCK Na) | 
R2 = ADDR 2 XMEM ADDR 2G0GH TO G@FFFR , | a 
3 = DATA OR RECIVING AGOR 2 | - > 3th | , 
Ri2 = NUMBER OF PARAMETERS 7 
S49E Di2@ MOVB @3F124,R4— ' save mapper contents. 
J4A2 8601 SWPB RI ' mapper value to high byte: 
S4A4 281 Cr RL, >189e { minimum mapper value: 
S4A8 LAL2 dL >S4CeE ' not external addr 
S4AA DOOL MOVB R1,@>F 134 { set up mapper 
S48E @282 Cl 2, >0FFF { max addr value = 4k. 
S4B2 iBO@D JH >%54CE ' gut of 4K range 
54843222 AL R2,>2882 ‘ add offsat 
3488 853A CKON : ' switch mapper on ~ 
348A C@@a MOV RO, RO ' check for read/write 
D4BC 1303 JEQQ >54C4 ' goto read — 
S4BE @6C3 SWPB R3 ' data to high byte — 
S400 D483 MOVE R3,#R2 ' write the data 
s4C2. 1081 JMP >54C5 — ' end 
34C4. D4D2. MOVE #R2,#RS ' read the data 
34046. 8308 CKOF | ' switch mapper off 
S4C8 9904 MOVB R4,@>F104 ‘ restor mapper contents 
s4CC @299 RTWP ' raturn | 
S4CE 2FAG XOP @788351,14 ' error “illegal addr" 
J4D2 8289 RTWP : 


The next program is a good example of how good the seaonies capabilities of 
the Cortex are,(even from Basic). It was sent from Mr a of Edinburgh, 
and was until recently one of our range of programs for sale. It is menu 


driven, allowing you to choose one of six predefined ay or enter your 
own function, 


aan 


DIM LIN(10),FUN(9) 

REM 3DGRAPH BY A.LYALL 

ae 
2 "<OCc>" 

2 @(9,2); puNerrON MENU" 

? reTt( 9 3 $ "sromeeeeeeees" 

2 @(3,6)3"L641/(COS(X/2)*COS(¥/2)+1. 1)42" 

2 @(3,8)$"2e01/(COS(X)*SIN(Y)4161)" 

2 @3,10)3"3..165/(COS(X)*SIN(Y/2)+1.1)" 

2 @(3,12)3"4~0125/(COS(X)*SIN(Y/3)+1.1)" 

2 @(3, 14)3"5.41/(COS(X)*COS(Y 41.1)" 

2 @(3,16);"6... (SIN(X/3)*2)434(SIN(Y/3)#2)03" 

? @(3,.18)3"7 oeENTER YOUR OWN FUNCTION" 

? @{2,.22)3;"PRESS NUMBER REQUIRED" 

A=KEY(0): IF A=0 THEN GOTO 380 _ 
ELSE IF A=49 THEN DEF FNA=1/(COS(X/2)*COS(Y/2)+1. 1)4+2 
ELSE IF A=50 THEN DEF FNA#1/(COS(X)*SIN(Y)-+1. 1) 
ELSE IF A=51 THEN DEF FNA=1.5/(COS(X)*SIN(Y/2)+1.1) 
ELSE IF A=52 THEN DEF FNA=1.5/(COS(X)*SIN(Y/3)+1.1) 
ELSE IF A=53 THEN DEF FNA=1/(COS(X)*COS(Y)+1.1) 
ELSE IF A=54 THEN DEF PNA=(SIN(X/3)*2)A3+(SIN(Y/3)*2)*3 
ELSE IF A=55 THEN GOSUB 710 
ELSE GOTO 260 

REM * 3DGRAPH * 

GRAPH 


2 "oc" 


K=1 
FOR X=0.25 TO 8.75 STEP 0.5 
IF K#+i THEN PLOT =13*(X+Y), 99— (YoX+FNA #5 


ELSE PLOT TO -13*(X+Y),99=(Y=X+FNA )%*5 
K=0. | | 
NEXT X 
PLOT TO =(13*(Y+X)),99=(Y=X+2)#5_ 

NEXT Y | | 
FOR X=0.25 TO 8.75 STEP 0.5 
C=1 
FOR Y=0.25 TO 8.75 STEP 0.5. 


IF C=1 THEN PLOT 13*(24%), 95. (Y=X+FNA )*5 
ELSE PLOT TO <(13*(Y+X)),99=(Y=X+FNA )*5 


NEXT Y 

PLOT TO =(13%(X+Y)),99-(Y=X+2)#5_ 
NEXT X_ 

? @(2,22);"PRESS ANY KEY FOR MENU" ~ 


A=KEY(0): IF A=O THEN GOTO 690 


ELSE GOTO 260 
REM *INPUT OWN FUNCTION* 
2 "eQc>!! 
2 @(11,4);"INPUT YOUR OWN FUNCTION" 
? ES ( Li, 5); . "Seema eeeeeeeeeeseasess"' 
2323? 
? "PLEASE TYPE IN YOUR FUNCTION" 
? "EG le ee ae i 
INPUT SFUN(0) 
SLIN(O)="810 DEF FNA= " + $FUN(O) 
ENTER SLIN(O) | 
DEF FNA= 
GOTO 470 


Finally in this section another program from Tim Gray:- _ 


The second program is a version of RM LEE's epsom printer dump routine. It dumps 
the graphics screen to the printer using a 3*3 dot matrix for each pixel,. to 
represent the density of the pixel's colour as adifferent grey level. It uses no 
extra space in memory and is written position independent so that it can be 
relocated without problems. To use it just include the call routine after the 
graphics screen has been set up. A full Ad size picture is produced. 


ch On HA 
cmorri ry 


PI BI bo he 


CA (4 C4 OG GE Cl te Gd ro ob bb 
mMmoOprnerrreaemnr oOG haem 


IMAM NM AMM Mmm Mmm mm 
a 
© 


a20A 
Q65A 
C285 


3 M228 
C CABB 
® CARB MON 
1O1F 
QOER 
| EQEG 
FOES 
EDAG 
AQAB 


AGOE 
AQED 


AGED 
ADD: | 
AQED 
AGES I 
2058 


BBAG 


4900 D 
AGRE 
AGO. 
EQ@e 
2048 — 
OBER 
AQE@ I 


CALL "PAINT", (start address(O5E00H)) 


Rid, >@458 


R1Q 


Rii,Ri9 

Rit, 004A | 
R11, @>O0E2 (R10) 
RL SOL 19iR1e) 


 y em es 
?JRU4 


*BBEO 


A YEQEQ 
EGER 
 >EGAD 


>40Ae 


3AORO 


>AQES 
YAQED 


4040 


AQED 


 FAQER 


rOQED 


TA +20AG 


1 40Ag 


>AQBO 


a * ; A rf TP 
PROBS 


YEAR 


0040 


SOBER. 
Y4QED 
ASO © 
+ADG0 


74000 
0000 


20008 © 
A. +8000 
» 20808 

70000. 
- 0008 
50088 
>0000 


: Load RiQ with RT opcode 


>: branch to R1B 


Rit = the addr of this instruction 


> affset ta data storage 


setup data return address 


juap to main routine | 
colour density data 3 bytes for each 


: colour code 


RL, >@QBF 


| _ Maximua Y pales 
3ES8 CAgi MOV Ri, @78846 (R19) | 


set Y 


ne ua 


check for graph sade — 

yes a/k 7 

no error "illegal in current mode" 
Save unit flags 

set unit 2 (4 for centronics) 


‘SESE CQ48 MOV @>0026,R1. 

5E62 1402 JNE >5€498 | 

SE64 2FA@ XOP @39830,14 

SE49 CAA@ MOV @>Q01E,@>0042(R19) 
| oR}, 0002 


ve 2» &8h§ a8 Oe 


wE72 
SE76 
SE7A 
SE7C 


ESO. 


SEB2 


JESS. 


is: 
SESE. 
ESE 
SEI. 
SE 4: 
E98 


SEPA 


SEFE 


SEAG 
SEAS 


WERE 


«SEBO 
SEB4 
SEBS 


JEBA 


SEBE 
SECR 
SEC 4. 
SECS 
SECA 
SECC. 
SECE 
JED@ 
EDS 
SEDC 
SEER 
WEES 
EER. 
SEEA 
—SEEE. 
JEFQ 
SEF 4 
SEF 
JEFA 


- SEFE 
— «SFaa 


SFa4 
5FQ4 
SF 
SFOA 
SFOC 
SF12 
SF16 
5F1a 
SFIC 
SFLE 

SF22 


SP 26 


Caei 
8221 


erat 


0281 
OF OI 
O241 
QF Ot 
9231 
OF Ot 
8201 
OF Oi 
231 
OF Ot 
Q281 
OF@i 
0291 
BFOL 
@4EA 


 SEAA CAA M 
Q4EA 


a2a1 
aFat 
0201 


ari 


0201 
QFO4 
201 
aFot 


{39a 


1982 
D8ZA 


DE2A 


8201 
Cael 
9429 
8829 


DOAA © 
1604 


DAG 
8242 


0982 


283 


38C2 


8224 
AiQA 


D174, 
DiB4 
DIF4 


BA29 
8423 
8208 


D@AA 
1694. 


DGA@ 


0242, 
8992 


RL, @>aGlE 
R1,>8a8 


RY 
Ri, 20080 


Ri 


Ri, >1808 


RL, >0600 
Rt 
Ri, >1B0@ 


PRY 


Ri, 76000 


@>aesaiRiay 
@>EE36 , @>0048 (R19) 
@>ag4a (R12) 


RL, +1Be8 
rRi 


Rt, +4000 


RI 


Ri ,2880@ 


TT i 


,>0300 
Ri 


@>0045 (R1Q) , @>EEI4 


@>OO47(R1B) ,@sEES7 | 


Ri, >Fi2@ 

Ri, @>1D12 
@>1C9E 

79809 

@>OQ4A (R18) ,R2 
YSEFS 
@>0549,R2- 
R2,7+OF 28 


R2,8 
R3,>9003 


R2,R3 


R44, OG1t 


R1@,R4 


—FR4+ RG 
1 FR44,RG 


#R4+,R7 
@>1D49,@>EE36 
@>1C9E 

+9900 


) @>O04A(R1O) ,R2 ~ 
YSF26 er 


@>0548,R2_ 


1 R2, >0F00 
R2,8 


es we 


se &§s) se aon 


: was 


en 


an 


Set new unit flag 
print cr lif 


set line spacing to 4/72" 


set colum head to 8 


Claar X pointer . 
Save cursor 
clear colour data storage area 


set bit immage mode for 748 bytes: 


set k position 
set Y position 


correct fault in COL function — 
branch to COL function 
ealourot-thie pixel ta R2 

if zero get background colour to R2 


move it to low byte : 
Calculate data table offsett o« _ 


move density data to RS,R&,R7 ~ 77 


increment X position 
get colour for this pixel 


if zero replace with background cal 


move ta low byte. 


8905 


A 8906 § 
C 2907 
9283 
2 38C2 


8224 


38 ALA 
SA DI74 
3C DIBS 


DLS 
8 8605 S$ 
2 86C&. 
8607 
5 BA45 


RA4S 
GA47 
QFQS 


E Fas 
52 a4c7 
OFQ7 


0624. 
8201 


SE 804A 


2 1684 
8882 


8281 


-CAS1 | 
. OSEA 
2 Q234 
86d. 


1298 


70 @291 
OFO1 


9201 
OFO! 
8261 


OFOl 
. 8204 
. BFE 


8291 


OFOt 
-C82A 
C82A 
> 8388 


RS,13 
R613 
R715". 


R3,>0003 
R2,R35 
R4, 0011 
R10,R4-. 

#R4+,R5 


R44 RG 


#R4+ RT 
RS. 


a RG: 


RS, 4 
R&,4 © 
RT, 4 


pe 


RG 

R7 

R7 

"RF 

@>0046 (R19) 
Ri, >FFFF 


@°0046(R18) RI 


SEDO 


— 2RRO2 


Ri, >@QBF 


R1,@>0048( R10) 
4>0044(R19) 
Ri, @OFF = 
@0044(R10) RE 


sOEBQ 


RL, 1300 
Rt 


Ri, ?4C2@ 
Ri | 
Ri, fied 
RIL 


Rt es oe 


RS 


 @>0042 (R18), @OM1E 
@0048 (R10), @2EEIS 


oo we ve Ld 


_ Qe 


o¢ 


move to low byte | 


it 


calculate data table offsett 


get density data to R5,R4,R7 


“rearange data for printer format 


send the data 


decrement Y position 


check for last ¥ 
no go for next pixel — 
send cr lf 


: reset ¥ pointer 


ae 


c2 ee af 


increment X (we print two each pass) 


Check for end of page ~ 


no setup for next line 
reset colum head to zero 


reset line spacing 


return ald unit flags 
return ald cursor 


return te Calling programa 


Competition 


In order to encourage all Cortex owners to develop their programming skills 
we intend to offer a free game for the best short program we receive each 
are 


This time we are looking for a program to demonstrate the graphic capabilities 
of the Cortex. The actual form of the program is entirely up to you, but it 
should not be very long. Suggested topics are geometric patterns or 
imaginative use of coloured sprites. 


To enter simply send your program on tape with any additional information we 
might need to load, run, and list it. We regret that we cannot undertake 
to return tapes unless return postage is paid. Please state which game you. 
would like to receive if yen win. (You may choose any one from the precen’ 
order form) 


The winner will be announced in issue 5, and his/her program will also be 
featured in the newsletter. 7 
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Information on any of the following. points would be gratefully peeeiveds and 
will be passed on to other users via the newsletter. 


BOOKS We have received several letters ‘asking about books applicable to 
Cortex programming. If anyone has found any suitable books then we 
would be delighted to hear from you. If you feél inclined then why 
not write a short review for us, and get your name in print: 


REPAIRS Does anyone know of some organisation which Gadeueakes Cortex. repairs. 
We feel that their is a definite lack of this sort of service, and 
want users to have more information available to them. 


DISC DRIVES A number of people have asked about the compatability of disc 
drives, and software. We hope to compile a report on this subject 


for a future newsletter, and would appreciate any additional information. 


PRINTERS What printer do you use, and what difficulties have you experienced 
(if any) ? aa So , | 


HARDWARE ADD-ONS Have you discovered: any decent “Adedetcns to the Cortex, such 
as memory expansion, interfaces etc ? We are sure that other users. 


would appreciate any knowledge that you have: to share. 


ANY OTHER POINTS NOT MENTIONED ABOVE 


lO. 


This section is concerned with the problems which may arise whilst using your 
Cortex. If you have any such problems or can offer advice on any points included — 
in previous newsletters, then we will be delighted $0 hear from you. 


Firstly we have a plea from John Mackenzie of Malvern:- 


Would some kind person please sort out the bug in the error trap subroutine ! 

~The idea behind the trap is that on a return the line at which the error | 

occurred is re-executed, but as anybody who has used it will know, a normal 

return is done to the next line, thus missing the original line at which the 

j error occurred. This is easily overcome, but that isn't the point. 

John also ates software, and his latest works are a word processor and — | 

spelling checker.(see User' s advertisments ) He also has this to say 2 about the 
problem Mr Evans had with his video circuit in newsletter > ee 


_ Mr Evans and his screen problem; I don't have an answer to that one but I did 


at one time have strange happenings on my screen, which I cleared up by soldering 
_ the video processor chip staight onto the main Cortex board.. This chip runs 


very hot, and the contacts. between the chip legs and the the carrier seem to 
suffer because of this heat. Propogation delays to the video memory seem to 
cause the faults. Since soldering the chip to the board I have had no problems.. 


Paul Sheridan has a few comments on Helge fanaea! s keyboard reading routine which 
was included in newsletter D6 | 


To stop the screen sentimus iy scrolling upwards sipues line 30 ae add line 40 
as below; 

30 IF K=0 : GOTO 20 

40 ?K 3 GOTO 20 


The number now stays: on the screen after the key has Been released. It is also 
possible to achieve the same result with a 2 line Basic program without the 
machine code program; 


10 K=KEY(O) : IF K=0 : GOTO 10 
20 ?K : GOTO 10 


This program can be further extended to put the character or + shape onto the screen 
as well as it's ASCII code. 


20 SPUT 610,K : ?K : GOTO 10 
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Mr Azzopardi of Maita is seeking information on a tape which he purchased a 
few months ago. The tape has on it a set of four graphics programs entitled | 
"RO", "PI5™, "SQRS", and "C-SPOTS". He cannot get these to load, and has no. 
documentation with them. If anyone has working versions of these programs _ 
and is willing to lend us a.copy, then we will be happy to return their 

tape and refund any postage charges. Any additional information would also 

be gratefully received. | | 


Mr Teirila of Helsinki has kindly: sent in his solucton to Mr Radford’ Ss 
problem (News letter 35. page as 


: = = - 


The cause for the seosiek lies in the fact that Cortez Basic does not 
store the length of strings, but uses -the character OH as @ string 

terminator, instead. | That: is why Basic cannot use that character ae 
any: other —— | | | > 


. The: simplest. solution is to send 80H instead: of OH. This is ee 
because. in. Cortex the RS232 is programmed to send only seven bits. and 


the MSB is so ignored. Even if you have reprogrammed the RS232. to. - 


send. eight bits. Cas I aid) this solution may help, ‘because: many 
printers: wilt. Secere.. 80H for OH in. Escape~sequences . | 


However, if you definately need to send OH, the only solution is to 

write a routine that directly manipulates: the RS232 port. The follo- 
wing Basic subroutine will send any character i al cla OH): whose 
ascii code: is. stored: in. variable ina CO ee 7 —_ 


100 REM RS-232 SEND 
110 BASE O80H 

120° CRBC16)=1 

130 A=CRBI22]: IF A 
140 A=CRB(27]: IF A 
150. CRFI8]=CHR 

160 CRB(161=0 
£70. RETURN: 


=O. THEN GOTO 130 
=Q. THEN GOTO 140 


And here is the same program in machine code. It is written in an 
array in high memory, but is fully relocatable. It is used from Basic 
by CALL ~ OEAECH, xx i ee code to be transmitted. 


BAEC 020C LI 12,0080 

EAFO 1D10 SBO. 16. 

BAF2 1Fi6 TB 22 

EAF4 16FE JNE >EAF2 

 BAF6 1F1B TB 27) 
EAFS 16FE JNE »>EAF6 

- BAFA O6CO SWPB RO 

EAFC 3200 LDCR RO,8 

EAFE 1£10 SBZ 16. 

EBOO 0380 RTWP 


Programming Tips 


Here is your chance to share your knowledge of your Cortex with other users. 
If you have discovered any interesting facts related to either software or 
hardware then write to us and get a mention in the next newsletter. In 
particular it is extremely useful for inexperienced programmers to have 
ambiguous or undocumented instructions explained in more detail. 


Tim Gray has provided much information in the past and continues to do so with 
the following points... 


The problem of having to change all data memory locations or BL instructions 
when moving code from one place to another can be avoided by writing position 
independant code. The following code loads R10 with O45BH, the opcode for the 
RT instruction, and then performs a branch and link instruction to it. Although 
the code returns immediately, it leaves the return address in R11. This can 
then be moved to another register and used as an index for any other BL 
instructions, or data locations used in the program. 


LI RIO > 9458 3 load R10 with RT 
BL R10 : branch and link 
MOV R11, R10 | R11 contains addr of Moe instruction > 
BL @O0048(R10) eétces. rest of program 


Lots of people seem to be having trouble with the video circuits of the Cortex. _ 

Most of these problems can be solved by replacing the sync separator transistor @2 with 
-a comparator IC. The original sync separator stage had problems due to its 

capacitive coupling causing incorrect output at different brightness levels 

and over the vertical interval. This in turn caused false triggering of the pal- 
switch. IC which shows itself as pink flashes at the top of the picture or 

complete loss of colour depending on the type of TV used. The circuit below 

replaces Q@2, R22, R25, and C7,. and as it is DC coupled it is POmpLeweny stable 


once set up correctly. | 
_ ge COMPARATOR non 


SYNC. SLICE | 
PO\WT OUTPUT. SYNCS. 


SYNC 
ype Y 


Ov 


: on Newsletter three Julian Terry seems to be eantiised about the reason tor 7 
the xOP routines ‘ Here are some notes. to axplain them more fully. | 


sop’ s 8 to 10 are the ptontiia point arithaetic package and are ‘used. in he. : 


1a 


form z- XOP  (S),xop nuaber 
4 address of a basic variable. 
yop @ Loan ace 
xOP 1 = STORE acc. 
xOP 2. ADD ACC 
XOP 3 © SUBTRACT FROM acc 
XOP 4 MULTIPLY Acc. 
 xOP Ss DIVIDE ace 
XOP & = SCALE 
KOP 7 NORMALISE 
XOP @-. CLEAR ACC 
xOP 9 NEGATE. ACC’ 
Xap 


FLOAT 


OTHER XxOP’s 


XOP 


XOP 12. 


XOP 


XOP 14 


if. 


13 


EVALUATE. AND FIX 


OUTPUT F.P IN ASCIL 


QUTPUT AN INTEGER No 


PRINT ERROR MESSAGE 


where S is. the start addr of a fleating point number Ta 4 nytes as in the 


Loads the floating suiiea concit oes, ‘ 


. with the 6 bytes starting at S.. The 


accumulator is R@:-, Ri , RZ of XOP @ to. 
1@ , memory addr FO9C FOIE FRAG | 
Stores the accumulator contents. ta the | 
Six bytes begining at S- : 
Adds the floating point. number stereing. 


at S$ to the accumulator . The normalised 


result will be in the accumulator . | 
Subtracts the floating point number at & 


"Sram the accuaulator . The normalised = 
~. result will be in the accumulator 


Multiplys the floating point accumulator : 


by the floating paint number begining gt 7 


S . The normalised result oe be in a 


accumulator. 


Divides the floating point secsabater 


| by the floating point number starting. at 
 & ~The normalised result will be in the 


accumulator 


. Adjusts the floating. point accumulator | 
 $@. that its. exponent matches that of the 


floating: paint number starting at § 
Adjusts the floating point accumulator. 
to give the greatest number of decimal 
places :- 3.45 would become .345 € 1 
and .8980865 € 2 would become .865 E -1 


Clears the floating point accumul ator 


| Negates the floating point accumal ator 


by changing the sign bit. 
Converts. the floating point accumulator 
to floating point if it is an integer 


Used by basic to evaluate aa Ba 
return an integer number 

Converts the floating point number at i 
to. ascii code and stores it at the addr 


pointed to by R7 on return R7 will 


contain the end addr af the ascii cade 


to print it add a null byte and usa the 


MSG MID MSG @>start addr | 
As above but uses a ane word integer 
number starting at S$ instead | 

As described in newsletter three 
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NEW**NEW**NEW 
We are delighted to announce the introduction 
FROGGER : | 
INVADERS & ASTEROID 


of four NEW games to our range of software. 


OLYMPICS An excellent adaption of one of the newer arcade games, from the 
author of BURGLAR and FROGGER. Three sections to challenge you in Skeet 
shooting, archery and weightlifting. This game has the best graphics we - 
have seen on the Cortex, and takes some beating. 


FIREBIRD An amazingly fast “shoot ‘em up" style arcade game. Swarms of 
whirling invaders attempt to bomb your solitary craft. Defend yourself ~ 
from neutron bombs, and ships which require more than one hit to be 

' destroyed. An extremely challenging game which will probabry keep or 
awake all night. 


-PENGO Another game from the same author as Firebird. Guide your penguin 
around the screen and attempt to move three diamond blocks together. Crush 
the marauding monsters with the plentiful ice blocks which litter the screen. 
Fast action and dazzling special effects. 7 


CENTIPEDE The invasion of the centipedes has begun: Shoot all of their 
segments before they reach the bottom of the screen. Be careful though, 
if yon REGS ENS centre of one it splits into two smaller centipedes. 


Unfortunately two games which appeared on the order form in newsletter 3 
were not described.. , 

MOONBASE II Protect your base against the invading spaceships which grow 
as they get closer. If you lose too many solar panels you will have to 
undertake to land the supply ship, on which all your hopes depend! 


MUNCHER Entertaining Cortex version of Pacman. Large colourful ghosts 
chase you around the screen, while you try and eat all of the dots. Eat 
a strawberry to gain a few seconds in which you can chase the ghosts. 


NEW SERVICE = AVAILABLE NOW.. 

We can now supply on tape all of the programs and routines from 
newsletter 4. Why spend hours bashing at your keyboard when we've 

done it for you? | 

As an introductory offer we will also give you a free gamei!! 

All this for only £1.50 (inc. p&p)” 


If you have written any good software then why not send it to us (with 
any necessary documentation), and we will market it. We pay £1.50 
royalties for every RORY. sold NGO EO Est every second month). So get 
writing today. | 


AVAILABLE NOW ‘ 


BLANK COMPUTER GRADE TAPES DIRECT FROM KPH COMPUTAWARE 
C30 TAPES AT 80p EACH (OR 75p EACH FOR 3 OR MORE) 
C10 TAPES AT 45p EACH (OR 40p EACH FOR 3 OR MORE) 
OFFER AVAILABLE WHILE STOCKS LAST 
PRICES INCLUDE P&P 


NEW HARDWARE ADD-ONS TO BE RELEASED IN 1986 


WE ARE AT PRESENT WORKING ON A NUMBER OF HARDWARE PROJECTS 
THESE WILL HOPEFULLY INCLUDE: | 
i) AN INPUT/OUTPUT USER PORT 
ii) A SOUND GENERATOR 
iii) A SPEECH GENERATOR 
iv) A JOYSTICK INTERFACE | 
NONE OF THESE PROJECTS WILL INVOLVE SOLDERING ON THE MAIN BOARD | 


DETALLS OF PROJECTS WILL BE nee NEWSLETTERS | 


IF YOU HAVE ANY EXPANSION IDEAS, OR HAVE DESIGNED CIRCUITS 


YOURSELF, THEN WHY NOT WRITE AND TELL US ABOUT THEM. 


74LS2001 REPLACEMENT (E-BUS EXPANSION) 


The following circuit should suitably replace the 74LS$2001 chip 
in. the E-bus expansion circuit. This circuit does not allow for 


multiprocessors or bus time-outs. 


| re 

4 
| p de 
| IC = 74LS74 | 


ToA=74L304- ~— | 


ORDER FORM 


FROGGER . 


INVADERS & ASTEROID 
HUNCHBACK 


| MAZE Sat Os SE 
rinepraD (new) | 
_Fenco (mew) 


OLYMPICS 


@:.£4.00 each (or *** £3.50 each) 


a 


ARCHIE 7 


CENTIPEDE (new) 


NEWSLETTER 4 
PROGRAMS /ROUTINES 


1986 SUBSCRIPTION 
(see separate form) 


TOTAL ENCLOSED | 


*w%e SPECIAL CHRISTMAS OFFER ON ORDERS POSTMARKED BEFORE. 31-1-86 
LOWER PRICE FOR 2 OR MORE PROGRAMS ORDERED (FROM EITHER SECTION) 


NAME os 
ADDRESS : 


NO VAT TO ADD 


NO P&P TO ADD 
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bale Tee 
This is a Word Processor for the Cortex. It runs under COOS 
1.28. The system runs usin Twin 468 track single sided 
single density disk drives. Operation with one drive can be 


dor 183 


MODES ft. Ineub text 
2. TrnPut Pate fron disk 
3. Return inPut text 
4, Yiew disk Page 
S.. Save Page to disk 
6. Print Pade-p ages 
7. SPelling check ‘requires SPeltex? 


FUMETIOMS | 
| 1. Text inPut with full character editina 
2. Page farmatina with: 

a. Auto Page number 
hk. Center text oP tion 
tc. PLGA Jvsetifs rehion 
id. Aute lef justification 
e. Left marsin control 
*, RPisht marsin contral 
9. Ruto return 
h.. lord wrar 
i. 15 Tab markers — 
ji, Page lenath contre 
b., Page editing 
3, Copy. fram disk Page fo memory Pg te 
4, Multi page Printina 


15. BO Plus a Si-vd blank disk 


SPELTEX 


The » spelling: checker for blortex. This rune under COOS 1.28, | 
The system uses twin 40 track single sided disks with drive 
“O° Single Density. and. drive *1’ Double Density. (NOTE only 
the most recent version CDOS 1.208 supports. Double Density 3, 


This is a must for Wortex users. Comes with ahout 7@00 wards 
and the dictionary can 90 uP to around: ZOOS words. 
Maces 1. Check Page sPeLlind 
2. Edit. the Dictionary: 
3. Return to Wortex 
4. Carrect errors 
FUHMCTIONS - | 
1. ‘Wier 


ae - ne error ie in the eons 
4. Add words ta. Dictio Nay srl fresr koegkeet a prad 
ae Delete wards From the Bic icnary | 


12. O88 Plus tun Sid DD Disks tin 


| _ SS Placrk ennai =. 
4 bho air "los 
Pep DL we eo rs 
LIF? 1 <4 at f-4 it 


